home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / gfx / raystorm.lha / raystorm / arexx / title1.ray < prev    next >
Text File  |  1995-08-06  |  851b  |  39 lines
  1. /***************
  2.  * NAME:          title.ray
  3.  * VERSION:       1.0 06.08.1995
  4.  * DESCRIPTION:   This ARexx-programm renders the RayStorm title
  5.  *                        (For this you need at last 3 MB of !!FREE!! memory)
  6.  * AUTHORS:       Andreas Heumann
  7.  * BUGS:          none
  8.  * TO DO:         none
  9.  * HISTORY:       DATE     NAME  COMMENT
  10.  *                06.08.95 ah    initial release
  11.  ***************/
  12.  
  13. OPTIONS RESULTS
  14.  
  15. IF ~SHOW('P','RAYSTORM') THEN DO  /* if not allready running, start RayStorm */
  16.    ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
  17.    ADDRESS COMMAND WaitForPort RAYSTORM
  18. END  
  19.  
  20. ADDRESS RAYSTORM
  21.  
  22. OBJECTPATH '/objects'
  23.  
  24. SETSCREEN 160 128
  25. SETCAMERA '0 300 -500  0 0 0  0 1 0 56.25 45'
  26. SETWORLD '0 0 0  30 30 30'
  27. POINTLIGHT '0 0 -700  255 255 255'
  28.  
  29. LOADOBJ 'title_light.iob'
  30. LOADOBJ 'title.iob'
  31.  
  32. STARTRENDER 2
  33.  
  34. SAVEPIC 'title1.iff'
  35.  
  36. CLEANUP
  37.  
  38. exit 0
  39.